﻿Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Data
Public Class cCommonFunction
    'Private ChuSo() As String = {"không", " một", " hai", " ba", " bốn", " năm", " sáu", " bẩy", " tám", " chín"}

    'Private Tien() As String = {"", " nghìn", " triệu", " tỷ", " nghìn tỷ", " triệu tỷ"}

    '' Hàm đọc số thành chữ
    'Public Function DocTienBangChu(ByVal SoTien As Long, ByVal strTail As String) As String
    '    Dim lan As Integer, i As Integer
    '    Dim so As Long
    '    Dim KetQua As String = "", tmp As String = ""
    '    Dim ViTri() As Integer = New Integer(6) {}
    '    If SoTien < 0 Then
    '        Return "Số tiền âm !"
    '    End If
    '    If SoTien = 0 Then
    '        Return "Không đồng !"
    '    End If
    '    If SoTien > 0 Then
    '        so = SoTien
    '    Else
    '        so = -SoTien
    '    End If
    '    'Kiểm tra số quá lớn
    '    If SoTien > 8999999999999999 Then
    '        SoTien = 0
    '        Return ""
    '    End If
    '    ViTri(5) = CType((so / 1000000000000000), Integer)
    '    so = so - Long.Parse(ViTri(5).ToString()) * 1000000000000000
    '    ViTri(4) = CType((so / 1000000000000), Integer)
    '    so = so - Long.Parse(ViTri(4).ToString()) * +1000000000000
    '    ViTri(3) = CType((so / 1000000000), Integer)
    '    so = so - Long.Parse(ViTri(3).ToString()) * 1000000000
    '    ViTri(2) = CType((so / 1000000), Integer)
    '        ViTri(1) = Decimal.Remainder( CType(((so , 1000000) / 1000)), Integer))
    '        ViTri(0) = Decimal.Remainder( CType((so ,  1000)))), Integer)
    '    If ViTri(5) > 0 Then
    '        lan = 5
    '    ElseIf ViTri(4) > 0 Then
    '        lan = 4
    '    ElseIf ViTri(3) > 0 Then
    '        lan = 3
    '    ElseIf ViTri(2) > 0 Then
    '        lan = 2
    '    ElseIf ViTri(1) > 0 Then
    '        lan = 1
    '    Else
    '        lan = 0
    '    End If
    '    For i = lan To 0 Step i - 1
    '        tmp = DocSo3ChuSo(ViTri(i))
    '        KetQua += tmp
    '        If ViTri(i) <> 0 Then
    '            KetQua += Tien(i)
    '        End If
    '        If (i > 0) And (Not String.IsNullOrEmpty(tmp)) Then
    '        End If
    '    Next
    '    If KetQua.Substring(KetQua.Length - 1, 1) = "," Then
    '        KetQua = KetQua.Substring(0, KetQua.Length - 1)
    '    End If
    '    KetQua = KetQua.Trim() + strTail
    '    Return KetQua.Substring(0, 1).ToUpper() + KetQua.Substring(1)
    'End Function
    '' Hàm đọc số có 3 chữ số
    'Private Function DocSo3ChuSo(ByVal baso As Integer) As String
    '    Dim tram As Integer, chuc As Integer, donvi As Integer
    '    Dim KetQua As String = ""
    '    tram = CType((baso / 100), Integer)
    '        chuc = Decimal.Remainder( CType(((baso ,  100) )/ 10), Integer)
    '    donvi = Decimal.Remainder(baso, 10)
    '    If (tram = 0) And (chuc = 0) And (donvi = 0) Then
    '        Return ""
    '    End If
    '    If tram <> 0 Then
    '        KetQua += ChuSo(tram) + " trăm"
    '        If (chuc = 0) And (donvi <> 0) Then
    '            KetQua += " linh"
    '        End If
    '    End If
    '    If (chuc <> 0) And (chuc <> 1) Then
    '        KetQua += ChuSo(chuc) + " mươi"
    '        If (chuc = 0) And (donvi <> 0) Then
    '            KetQua = KetQua + " linh"
    '        End If
    '    End If
    '    If chuc = 1 Then
    '        KetQua += " mười"
    '    End If
    '    Select Case donvi
    '        Case 1
    '            If (chuc <> 0) And (chuc <> 1) Then
    '                KetQua += " mốt"
    '            Else
    '                KetQua += ChuSo(donvi)
    '            End If
    '            Exit Function
    '        Case 5
    '            If chuc = 0 Then
    '                KetQua += ChuSo(donvi)
    '            Else
    '                KetQua += " lăm"
    '            End If
    '            Exit Function
    '        Case Else
    '            If donvi <> 0 Then
    '                KetQua += ChuSo(donvi)
    '            End If
    '            Exit Function
    '    End Select
    '    Return KetQua
    'End Function
End Class

